#x,n,bitNum输入变量


cl <- c(-3, -2, -1, 0, 1, 2, 3)

#运行值
claData <- x

#对比线
CL <- mean(claData) + cl * sd(claData)

#精确位数
if (bitNum > 0) {
    claData <- round(claData, bitNum)
    CL <- round(CL, bitNum)
}